;
; ------------------------------------------------------------
;
;   PureBasic - Cipher example file
;
;    (c) 2002 - Fantaisie Software
;
; ------------------------------------------------------------
;
;

MessageRequester("CRC32 Test", "Should be 352441C2 : "+Hex(CRC32Fingerprint(@"abc", 3)), 0)

MessageRequester("MD5 Test"  , "Should be ed50deb5bb795508b8a5c8e50dafa954 : "+MD5Fingerprint(@"PureBasic", Len("PureBasic")), 0)

MessageRequester("DES Test"  , "Should be FrfWXJ4yTjycc : "+DESFingerprint("1Fr", "Fr"), 0)

*OutputBuffer = AllocateMemory(100)
Base64Encoder(@"PureBasic", Len("PureBasic"), *OutputBuffer, 100)
MessageRequester("Base64 Test", "Should be UHVyZUJhc2lj : "+PeekS(*OutputBuffer), 0)